home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
BORL_TIP
/
TI100
/
TI516.ASC
< prev
next >
Wrap
Text File
|
1992-08-12
|
3KB
|
133 lines
PRODUCT : TURBO PASCAL NUMBER : 516
VERSION : 4.0xx+
OS : MS-DOS
DATE : December 7, 1989 PAGE : 1/2
TITLE : TURNING THE CURSOR ON AND OFF
The following example routines are public domain programs that
have been uploaded to our Forum on CompuServe. As a courtesy to
our users that do not have immediate access to CompuServe,
Technical Support distributes these routines free of charge.
However, because these routines are public domain programs, not
developed by Borland International, we are unable to provide any
technical support or assistance using these routines. If you need
assistance using these routines, or are experiencing
difficulties, we recommend that you log onto CompuServe and
request assistance from the Forum members that developed these
routines.
To turn the cursor on and off you must use BIOS interrupt $10.
For more information on this interrupt, please refer to a DOS
programmer's guide. Of course, manipulating the cursor can only
be done in text mode and not graphics mode.
The following procedure turns the cursor on and off in Turbo
Pascal:
procedure SetCursor(On: Boolean);
var
reg : Registers;
begin
if On then { Turn cursor on }
if Mem[$0040:$0049] = 7 then
reg.cx := $B0C { If monochrome monitor }
else
reg.cx := $607 { If color monitor }
else { Turn cursor off }
reg.cx := $2020;
reg.bx := 0;
reg.ax := $0100; { Set the interrupt function }
Intr($10,reg); { Call the interrupt }
end; { procedure SetCursor }
This procedure was revised from the question and answer section
in the Turbo Pascal Tutor and Turbo Pascal version 3.0 reference
guide.
PRODUCT : TURBO PASCAL NUMBER : 516
VERSION : 4.0xx+
OS : MS-DOS
DATE : December 7, 1989 PAGE : 2/2
TITLE : TURNING THE CURSOR ON AND OFF
In the procedure you do not need to declare the type Registers
because it is predefined for you in the DOS unit. Therefore, to
use this procedure, your program must also use the DOS unit.
DISCLAIMER: You have the right to use this technical information
subject to the terms of the No-Nonsense License Statement that
you received with the Borland product to which this information
pertains.